home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs03.d81 / cnid1581.prg (.txt) < prev    next >
Commodore BASIC  |  2009-10-10  |  1KB  |  38 lines
  1. 5 POKE53280,0:POKE53281,1:PRINT"[154]"
  2. 10 PRINT "[147]CHANGE 1581 DISK ID#[146]"
  3. 20 PRINT " DISK UNIT NR (8-15) ?[160]8 [157][157][157][157]";
  4. 30 INPUT U: IF U<8 OR U>15 THEN PRINT "[145][145][145]": GOTO 20
  5. 40 PRINT " DISK DRIVE NR (0/1) ?[160]0[157][157][157]";
  6. 50 INPUT D: IF D<0 OR D>1 THEN PRINT "[145][145][145]": GOTO 40
  7. 60 PRINT " PUT TARGET DISK IN UNIT";U;" DRIVE";D
  8. 70 PRINT " THEN PRESS ANY KEY TO CONTINUE"
  9. 80 GET X$: IF X$=""THEN 80
  10. 90 A=1: V=2 : Q$=CHR$(34): P$=CHR$(160)
  11. 100 T=40: S=0: I$="I"+RIGHT$(STR$(D),1)
  12. 110 OPEN 1,U,15,I$: GOSUB 350
  13. 120 GOSUB 310: F$=H$: GET#2,X$,X$,A$,B$
  14. 130 PRINT"[147] CURRENT ID# ";Q$;F$;Q$
  15. 150 PRINT" NEW ID# OR QUIT[146] (Q)[146] ?"
  16. 160 INPUT " ?[157]";N$: L=LEN(N$):IF L>V THEN130
  17. 170 IF N$="Q"THENPRINT"[147]";:GOTO370
  18. 180 PRINT " OK TO WRITE NEW ID# (Y/N) ? Y[157][157][157]";
  19. 190 INPUT X$: IF X$<>"Y" THEN 130
  20. 200 IF L=V THEN 220
  21. 210 FOR X=L+A TO V: N$=N$+P$: NEXT
  22. 220 PRINT#1,"B-P:";2;22: PRINT#2,N$;
  23. 230 PRINT#1,"U2:";2;D;T;S: GOSUB 350
  24. 240 PRINT#1,I$: GOSUB 350: CLOSE 2
  25. 250 PRINT " OLD ID# ";Q$;F$;Q$
  26. 260 GOSUB 310: CLOSE 2: CLOSE 1
  27. 270 PRINT "NEW[146] ID# ";Q$;H$;Q$
  28. 280 PRINT " CHANGE ANOTHER DISKETTE (Y/N) ? Y[157][157][157]";
  29. 290 INPUT X$: IF X$="Y" THEN 60
  30. 300 PRINT "[147]";: END
  31. 310 OPEN 2,U,2,"#": GOSUB 350: H$=""
  32. 320 PRINT#1,"U1:";2;D;T;S: GOSUB 350
  33. 330 PRINT#1,"B-P:";2;22: FOR X=ATOV
  34. 340 GET#2,T$: H$=H$+T$: NEXT: RETURN
  35. 350 INPUT#1,E,M$,J,K:IF E=0 THEN RETURN
  36. 360 PRINT " ERROR: ";E;M$;J;K
  37. 370 CLOSE 2: CLOSE 1: END
  38.